home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aar.d64 / benchmark.lst < prev    next >
File List  |  2009-01-31  |  371b  |  16 lines
  1. 0010 SI#:=3962; COUNT#:=0
  2. 0020 DIM FLAGS#(0:SI#)
  3. 0030 FOR I#:=0 TO SI# DO
  4. 0040   IF NOT FLAGS#(I#) THEN
  5. 0050     PRIME#:=I#+I#+3
  6. 0060     COUNT#:+1
  7. 0070     // PRINT PRIME#;
  8. 0080     FOR K#:=I#+PRIME# TO SI# STEP PRIME# DO
  9. 0090       FLAGS#(K#):=TRUE
  10. 0100     ENDFOR K#
  11. 0110   ENDIF 
  12. 0120 ENDFOR I#
  13. 0130 PRINT 
  14. 0140 PRINT "COUNT=";COUNT#
  15. 0150 PRINT "LAST PRIME =";PRIME#
  16.